
Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub btnIngresar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnIngresar.Click
        Session.Add("UserName", txtUsuario.value)
        ''UIUtilities.RedirectToHomePage()
        AbrirSistema()
        CerrarPantalla()
    End Sub


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'btnIngresar.Attributes.Add("OnClick", "javascript:window.open('~/Pages/frmPrincipal.aspx','CargarFoto','width=800,height=600,left=200, top=200,directories=no,location=no,menubar=no,resizable=no,scrollbars=1,status=no,toolbar=no'); return false; window.focus(); ")

    End Sub
    Public Sub AbrirSistema()
        'fullscreen=yes
        Response.Write("<script language='javascript'> {window.open('Pages/frmPrincipal.aspx','Socios','width=1280,height=800,left=0, top=0,directories=no,location=no,menubar=no,resizable=1,scrollbars=1,status=no,toolbar=no'); window.focus();}</script>")
    End Sub

    Public Sub CerrarPantalla()
        Response.Write("<script language='javascript'> { window.top.opener=null; window.open('','_self'); window.close();}</script>")
        Me.Dispose()
    End Sub
End Class